(locate-file-completion): Avoid duplicates in result.

diff --git a/lisp/files.el b/lisp/files.el
index 90ca58a7511e4af50047a737ae35ba32752333df..af8e3d0e8896fd648e1ed8c87c3c0e8672ebec81 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -691,7 +691,7 @@ PATH-AND-SUFFIXES is a pair of lists, (DIRECTORIES . SUFFIXES)."
        (when (file-directory-p dir)
          (dolist (file (file-name-all-completions
                         (file-name-nondirectory string) dir))
-           (push (if string-dir (concat string-dir file) file) names)
+           (add-to-list 'names (if string-dir (concat string-dir file) file))
            (when (string-match suffix file)
              (setq file (substring file 0 (match-beginning 0)))
              (push (if string-dir (concat string-dir file) file) names)))))